home *** CD-ROM | disk | FTP | other *** search
/ Software of the Month Club 1996 June / Software of the Month Club 1996 June.iso / mac / ISO9660 / WIN / SRI / RAYTRACE / QCKTR12.RSC < prev    next >
Text File  |  1995-09-07  |  3KB  |  144 lines
  1. % Reflection in a spherical mirror
  2. .run_from qcktr11.rsc
  3. .file_new
  4. .quiet_snap
  5. .new_text
  6. This example will demonstrate reflection in a curved mirror.
  7.  
  8.  
  9. Click on "Continue to see the mirror created."
  10. .pause
  11. .create_element
  12. .move 250 200
  13. .pause 500
  14. .click 250 200
  15. .arcseg
  16. .radius_end
  17. .clockwise_arc
  18. .move 150 200
  19. .pause 500
  20. .click 150 200
  21. .move 250 300
  22. .pause 500
  23. .click 250 300
  24. .surface
  25. .new_text
  26. Click on "Continue" to see annotate the centre of the arc.
  27. .pause
  28. .annotation Centre of arc
  29. .centre_snap
  30. .move 242 216
  31. .pause 500
  32. .click 242 216
  33. .move 370 270
  34. .pause 500
  35. .click 380 270
  36. .set_length 100
  37. .new_text
  38. Click on "Continue" to see an incident ray strike the mirror.
  39. .pause
  40. .create_ray
  41. .move 100 260
  42. .pause 500
  43. .click 100 260
  44. .move  200 260
  45. .pause 500
  46. .click 200 260
  47. .finish
  48. .new_text
  49. Clcik on "Continue" to see a tape measure that measures the
  50. radius of curvature.
  51. .pause
  52. .create_tapemeasure
  53. .mid_snap
  54. .move 242 216
  55. .pause 500
  56. .click 242 216
  57. .centre_snap
  58. .move 242 216
  59. .pause 500
  60. .click 242 216
  61. .click 300 250
  62. .tapemeasure_options 1 1 leader distance
  63. .click 296 260
  64. .click 335 210
  65. .new_text
  66. Click on "Continue" to annotate the point
  67. half way between the arc and its centre as the idealised
  68. focus.
  69. .pause
  70. .annotation "Focus"
  71. .mid_snap
  72. .move 250 250
  73. .pause 500
  74. .click 250 250
  75. .move 365 305
  76. .pause 500
  77. .click 365 305
  78. .new_text
  79. Click on "Continue" to back project the reflected ray to see
  80. where is crosses the mirror's axis.
  81. .pause
  82. .click 168.2 272.6
  83. .back_project
  84. %.zoom_in
  85. %.click 135 165
  86. %.click 430 335
  87. .new_text
  88. Click on "Continue" to create a protractor to measure the
  89. angle that the point of incidence subtends relative to the
  90. axis of the mirror.
  91. .pause
  92. .create_protractor
  93. .centre_snap
  94. .move 241 277
  95. .pause 500
  96. .click 241 277
  97. .end_snap
  98. .move 170 260
  99. .pause 500
  100. .click 170 260
  101. .mid_snap
  102. .move 241 277
  103. .pause 500
  104. .click 241 277
  105. .click 281 256
  106. .protractor_options 0 leader degrees
  107. .click 346 260
  108. .click 365 240
  109. .new_text
  110. Click on "Continue" to move the incident ray up and down
  111. and see how the mirror departs from ideal.
  112. .pause
  113. .move 170 260
  114. .pause 500
  115. .click 170 260
  116. .pause 500
  117. .click 170 260
  118. .move 170 202
  119. .pause 500
  120. .move 170 298
  121. .pause 500
  122. .click 170 260
  123. .new_text
  124. Click on "Continue" to change the radius of the mirror to
  125. half its current value.
  126. .pause
  127. .click 241 277
  128. .click 200 286.6
  129. .click 150 200
  130. %.pan_left
  131. %.pan_left
  132. .new_text
  133. Click on "Continue" to see the ray moved up and down the
  134. mirror again.
  135. .pause
  136. .click 160 260
  137. .click 170 260
  138. .move 170 212
  139. .pause 500
  140. .move 170 288
  141. .pause 500
  142. .click 160 260
  143. .script qcktr13.rsc
  144.